home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / do / gpent < prev    next >
Encoding:
Text File  |  1992-08-15  |  1.3 KB  |  62 lines
  1. int
  2. do_gpent(which,gimme,arglast)
  3. int which;
  4. int gimme;
  5. int *arglast;
  6. {
  7.     register ARRAY *ary = stack;
  8.     register int sp = arglast[0];
  9.     register char **elem;
  10.     register STR *TARG;
  11.     struct protoent *getprotobyname();
  12.     struct protoent *getprotobynumber();
  13.     struct protoent *getprotoent();
  14.     struct protoent *pent;
  15.  
  16.     if (which == O_GPBYNAME) {
  17.     char *name = str_get(ary->ary_array[sp+1]);
  18.  
  19.     pent = getprotobyname(name);
  20.     }
  21.     else if (which == O_GPBYNUMBER) {
  22.     int proto = (int)str_gnum(ary->ary_array[sp+1]);
  23.  
  24.     pent = getprotobynumber(proto);
  25.     }
  26.     else
  27.     pent = getprotoent();
  28.  
  29.     if (gimme != G_ARRAY) {
  30.     astore(ary, ++sp, TARG = str_mortal(&str_undef));
  31.     if (pent) {
  32.         if (which == O_GPBYNAME)
  33.         str_numset(TARG, (double)pent->p_proto);
  34.         else
  35.         str_set(TARG, pent->p_name);
  36.     }
  37.     return sp;
  38.     }
  39.  
  40.     if (pent) {
  41. #ifndef lint
  42.     (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
  43.     str_set(TARG, pent->p_name);
  44.     (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
  45.     for (elem = pent->p_aliases; *elem; elem++) {
  46.         str_cat(TARG, *elem);
  47.         if (elem[1])
  48.         str_ncat(TARG," ",1);
  49.     }
  50.     (void)astore(ary, ++sp, TARG = str_mortal(&str_no));
  51.     str_numset(TARG, (double)pent->p_proto);
  52. #else /* lint */
  53.     elem = Nullch;
  54.     elem = elem;
  55.     (void)astore(ary, ++sp, str_mortal(&str_no));
  56. #endif /* lint */
  57.     }
  58.  
  59.     return sp;
  60. }
  61.  
  62.